Dim mySales As String 

If isNumeric(Me.TotalSales) then 

mySales = Me.TotalSales 'TotalSales is a Visible Text 
'box with Enabled Property 
'set to No and Locked 
'property set to Yes 
Else 
mySales = 0 
End if 


MsComm1.Output = Chr $(&H5) 'Scroll 
MsComm1.Output = Chr $(&HA) 'Line Feed 
MsComm1.Output = Chr $(&H13) 'Cursor on 
MsComm1.Output = "TOTAL SALES " + mySales ' Displayed Data 
MsComm1.Output = Chr $(&HD) ' Carrige return

Q. How do I send out characters to my pole display using Visual Basic? 

A. Here is a sample code for sending characters via the COM1 port at 9600 baud. Please note that your settings may differ depending on your system configuration.
MSComm1.Comport=1                             sets port variable to COM1
MSComm1.PortOpen=True                       opens the port for communication
MSComm1.Settings=9600,N,8,1             sets the protocol to match the pole display 
MSComm1.Output=Chr$(31)+Chr$(17)      ' Reset & set normal display model MSComm1.Output=Chr$(67)                    sends a sample character to the pole display MSComm1.PortOpen=False                      closes the port


KEY FOR REGESTRATION:

[HKEY_CLASSES_ROOT\Licenses\4250E830-6AC2-11cf-8ADB-00AA00C00905]
@ = "kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun"

